﻿Friend Class ContactsScriptExecuter
    Private ReadOnly DNNOwnerQualifier As String = "{databaseOwner}{objectQualifier}"
    Private ReadOnly dboQualifier As String = "dbo."
    Private ReadOnly GOKeyword As String = "GO"

    Public Sub ExecuteCreateScript()
        Dim CreateTableScript As String = System.IO.File.ReadAllText("..\..\..\Providers\DataProviders\SqlDataProvider\00.00.01.SqlDataProvider")
        CreateTableScript = CreateTableScript.Replace(DNNOwnerQualifier, dboQualifier).Replace(GOKeyword, "")
        UnitTestCore.ExecuteSQLNonQuery(CreateTableScript)
    End Sub

    Public Sub ExecuteDropScript()
        Dim DropTableScript As String = System.IO.File.ReadAllText("..\..\..\Providers\DataProviders\SqlDataProvider\Uninstall.SqlDataProvider")
        DropTableScript = DropTableScript.Replace(DNNOwnerQualifier, dboQualifier).Replace(GOKeyword, "")
        UnitTestCore.ExecuteSQLNonQuery(DropTableScript)
    End Sub

End Class